VERSION 5.00
Begin VB.Form frmServer 
   Caption         =   "Setup Log In Information"
   ClientHeight    =   2670
   ClientLeft      =   60
   ClientTop       =   300
   ClientWidth     =   4680
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   ScaleHeight     =   2670
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command2 
      Caption         =   "Quit"
      Height          =   435
      Left            =   2760
      TabIndex        =   9
      Top             =   2100
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Update"
      Height          =   435
      Left            =   360
      TabIndex        =   8
      Top             =   2100
      Width           =   1455
   End
   Begin VB.TextBox Text4 
      Height          =   285
      Left            =   1560
      TabIndex        =   7
      Text            =   "21"
      Top             =   1500
      Width           =   735
   End
   Begin VB.TextBox Text3 
      Height          =   315
      IMEMode         =   3  'DISABLE
      Left            =   1560
      PasswordChar    =   "*"
      TabIndex        =   5
      Top             =   1020
      Width           =   2715
   End
   Begin VB.TextBox Text2 
      Height          =   315
      Left            =   1560
      TabIndex        =   3
      Top             =   540
      Width           =   2715
   End
   Begin VB.TextBox Text1 
      Height          =   285
      Left            =   1560
      TabIndex        =   1
      Top             =   120
      Width           =   2715
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      Caption         =   "For Anonymous login use anonymous for both username and password."
      Height          =   555
      Left            =   2520
      TabIndex        =   10
      Top             =   1440
      Width           =   1875
   End
   Begin VB.Label Label4 
      Alignment       =   1  'Right Justify
      Caption         =   "Port:"
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   1560
      Width           =   1215
   End
   Begin VB.Label Label3 
      Alignment       =   1  'Right Justify
      Caption         =   "Password:"
      Height          =   255
      Left            =   120
      TabIndex        =   4
      Top             =   1080
      Width           =   1215
   End
   Begin VB.Label Label2 
      Alignment       =   1  'Right Justify
      Caption         =   "User Name:"
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   600
      Width           =   1215
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      Caption         =   "Host Name:"
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1215
   End
Attribute VB_Name = "frmServer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then
   MsgBox "All data fields must be filled in!"
   Exit Sub
End If
Open App.Path & "\login.dat" For Output As #1
Print #1, Text1.Text
Print #1, Text2.Text
Print #1, Text3.Text
Print #1, Text4.Text
Close #1
frmMain.Label4.Caption = "Not Connected"
frmMain.Label4.Refresh
DoEvents
GoOnline = True
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
If Dir(App.Path & "\login.dat", vbNormal) = "" Then
   MsgBox "You must Enter Server Information"
   Exit Sub
   Open App.Path & "\login.dat" For Input As #1
   Line Input #1, buff
   Text1.Text = buff
   Line Input #1, buff
   Text2.Text = buff
   Line Input #1, buff
   Text3.Text = buff
   Line Input #1, buff
   Text4.Text = buff
   Close #1
End If
End Sub